home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / nwlib15.zip / SOURCE.ZIP / NWTOOLS.INT < prev    next >
Text File  |  1996-06-08  |  3KB  |  56 lines
  1. { ******** Functions Relating to NWTools Component *********
  2.  
  3.   Developed with Novell Inc.'s Client SDK for C SDK Mar-Dec 1995.
  4.  
  5.   Copyright 1995 by Devont Software Inc. and Jim Tyson.  All
  6.   rights reserved.
  7.  
  8. }
  9.  
  10.     { general purpose functions - not Netware specfic in any way }
  11.  
  12.     { General functions }
  13.     function maxLong(nVal1,nVal2: Longint) : longint ;
  14.     function minLong(nstart,nend: longint) : longint ;
  15.     function timeTextInc(ctime : string ; nway : integer) : string ;
  16.     function datetextInc(cdate : string ; nway: integer) : string ;
  17.     function charCount(const ctext: string; ctoken: char) : integer ;
  18.     function allTrim(const ctext: string) : string ;
  19.     function lTrim(ctext: string) : string ;
  20.     function rTrim(ctext: string) : string ;
  21.     function strExtract(ctext:string; const ctoken: char; const npos: integer): string ;
  22.     function canOpen(cfile : string) : boolean ;
  23.     function leftString(ctext : string; nlen: integer) : string ;
  24.     function rightString(ctext : string; nlen: integer) : string ;
  25.     function setPath(cpath : string) : string ;
  26.     function fUnique(cpath : string) : string ;
  27.     function padC(ctext : string ; nlen : integer ; cchar : char) : string ;
  28.     function padL(ctext : string ; nlen : integer ; cchar : char) : string ;
  29.     function padR(ctext : string ; nlen : integer ; cchar : char) : string ;
  30.     function proper(ctext:string) : string ;
  31.     function iif(const lvalue: boolean; cret1 : string; cret2: string) : string;
  32.     function between(nval,nmin,nmax: longint) : Boolean;
  33.     function strEmpty(ctext: string) : Boolean;
  34.     function yesNoBox(cText: string) : Boolean ;
  35.     function noYesBox(cText: string) : Boolean ;
  36.     function YNCBox(ctext: string) : integer ;
  37.     procedure OKBox(cText : string) ;
  38.     procedure alertBox(cText : string) ;
  39.     function strTran(ctext,cfor,cwith : string) : string ;
  40.     function delim2StrList(ctext : string) : TStringList ;
  41.     function rat(const ctoken : char; const ctext : string) : integer ;
  42.     function formDate(cdate : TDateTime) : string ;
  43.     function formTime(cdate : TDateTime) : string ;
  44.     function day(cdate : TDateTime) : byte ;
  45.     function month(cdate : TDateTime) : byte ;
  46.     function hour(cTime : TDateTime) : byte ;
  47.     function minute(cTime : TDateTime) : byte ;
  48.     function second(cTime : TDateTime) : byte ;
  49.     function year(cdate : TDateTime) : word ;
  50.     function aSub(atemp: array of char;nstart,nend: word) : string ;
  51.     function stringListPos(strList : TStringList ; cFind : string ; var nindex : word ) : boolean ;
  52.     function space(nLen :  word) : string ;
  53.     function sizeofFile(cfile : string) : longint ;
  54.     function lastDay(datein : TDateTime) : byte ;  {1.4}
  55.     procedure autoGridLineHeight(gridName : TDrawGrid) ; {1.5}
  56.